home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / KALEIDOS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  896 b   |  42 lines
  1. 10  ' **********************
  2. 20  ' **     KALEIDOS     **
  3. 30  ' **********************
  4. 40  '
  5. 50  CLEAR
  6. 60  SCREEN 0,0,0,0
  7. 70  WIDTH 40
  8. 80  KEY OFF
  9. 90  CLS
  10. 100  GOSUB 400
  11. 110  FGD = INT(RND * 16)
  12. 120  CHAR$ = CHR$(219)
  13. 130  LOCATE 1,1,0
  14. 140  '
  15. 150  ' Main loop starts here
  16. 160  IF RND < 0.1 THEN FGD = INT(RND * 16)
  17. 170  COLOR FGD
  18. 180  X = INT(40 * RND + 1)
  19. 190  Y = INT(23 * RND + 1)
  20. 200  DX = INT(3 * RND - 1)
  21. 210  DY = INT(3 * RND - 1)
  22. 220  IF DX = 0 THEN 200
  23. 230  IF DY = 0 THEN 200
  24. 240  IF X < 1 OR X > 40 THEN 160
  25. 250  IF Y < 1 OR Y > 23 THEN 160
  26. 260  GOSUB 330
  27. 270  X = X + DX
  28. 280  Y = Y + DY
  29. 290  GOTO 240
  30. 300  '
  31. 310  ' Subroutine, put color squares in four
  32. 320  ' symmetrical places on screen
  33. 330  LOCATE Y,X : PRINT CHAR$;
  34. 340  LOCATE Y,41-X : PRINT CHAR$;
  35. 350  LOCATE 24-Y,X : PRINT CHAR$;
  36. 360  LOCATE 24-Y,41-X : PRINT CHAR$;
  37. 370  RETURN
  38. 380  '
  39. 390  ' Subroutine, reset random number sequence
  40. 400  RANDOMIZE VAL(MID$(TIME$,4,2) + RIGHT$(TIME$,2))
  41. 410  RETURN
  42.